﻿Imports System.IO
Imports System.Text

Partial Public Class DownLoadExportZipFile
    Inherits Mysoft.Map.Application.Security.AppPage

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim filename As String = Request.QueryString("file")
        Dim fileInfo As FileInfo = New FileInfo(Server.MapPath("\TempFiles\LMS\Export\" & filename))

        If Not fileInfo.Exists Then Return

        DownloadZipLink.NavigateUrl = "\TempFiles\LMS\Export\" & fileInfo.Name
        DownloadZipLink.Text = fileInfo.Name
        DownloadZipLink.Visible = True
    End Sub
End Class